﻿Public Class BEequipo

#Region "Declaración de variables"

    Private codProtocolo As Integer
    Private codPersonal As Integer
    Private codRol As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodProtocolo As Object, _
            ByVal pCodPersonal As Object, _
            ByVal pCodRol As Object)

        Me._codProtocolo = pCodProtocolo
        Me._codPersonal = pCodPersonal
        Me.codRol = pCodRol

    End Sub

    Public Property _codProtocolo() As Integer
        Get
            Return Me.codProtocolo
        End Get
        Set(ByVal value As Integer)
            Me.codProtocolo = value
        End Set
    End Property

    Public Property _codPersonal() As Integer
        Get
            Return Me.codPersonal
        End Get
        Set(ByVal value As Integer)
            Me.codPersonal = value
        End Set
    End Property

    Public Property _codRol() As Integer
        Get
            Return Me.codRol
        End Get
        Set(ByVal value As Integer)
            Me.codRol = value
        End Set
    End Property

End Class
